Przekrój ostrosłupa prawidlowego 
sześciokątnego płaszczyzną zawiera-
jącą krawędź podstawy ostrosłupa.

Opracował: Piotr Leszczyński

Przesuń dowolnie punk G wzdłuż wysokości SO.

POKAŻ PŁASZCZYZNĘ PRZEKROJU

Pole przekroju =

Obwód przekroju =

a = 4 (slider from 0.1 to 10, step 0.1)
h = 6.1 (slider from 0.1 to 10, step 0.1)
S: (0, 0, h)
p1 = true
p2 = true
p3 = true
A: (((-a)) / 2, ((-a) * sqrt(3) / 2))
B: ((-x(A)), y(A))
wielokąt1, f, g, i, j, k, l, C, D, E, F = Polygon(A, B, 6)
b, powierzchniaABS, powierzchniaBCS, powierzchniaCDS, powierzchniaDES, powierzchniaEFS, powierzchniaAFS, krawędźAS, krawędźBS, krawędźCS, krawędźDS, krawędźES, krawędźFS = Pyramid(wielokąt1, S)
m = Segment(A, D)
n = Segment(F, C)
p = Segment(B, E)
O = Intersect(p, m)
q = Segment(O, S)
G = Point(q)
c = Plane(A, B, G)
H = Intersect(krawędźCS, c)
I = Intersect(krawędźDS, c)
J = Intersect(krawędźES, c)
K = Intersect(krawędźFS, c)
L = Intersect(f, krawędźBS)
wielokąt2, a_1, l_1, h_1, i_1, j_1, k_1 = Polygon(A, L, H, I, J, K)
r = Segment(H, K)
tekst4: "" + wielokąt2 + ""
tekst5: "" + (a_1 + h_1 + i_1 + j_1 + k_1 + l_1) + ""